Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/menu.dir/00017_Untitled-2.ls

Text File | 1995-12-21 | 514 b | 22 lines

on mouseDown
  set h to the locH of sprite clickOn()
  set v to the locV of sprite clickOn()
  repeat while the stillDown
    if rollOver(clickOn()) then
      set the locH of sprite clickOn() to h + 5
      set the locV of sprite clickOn() to v + 5
    else
      set the locH of sprite clickOn() to h
      set the locV of sprite clickOn() to v
    end if
    updateStage()
  end repeat
  set the locH of sprite clickOn() to h
  set the locV of sprite clickOn() to v
  updateStage()
end

on mouseUp
  quit()
end